home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / batch / rtutils.lha / rtutils / Install.script < prev    next >
Encoding:
Text File  |  1989-08-03  |  3.2 KB  |  104 lines
  1. ; $VER: rtUtils Installation Script 1.00 (27.07.97)
  2.  
  3. ; LANGUAGES
  4. (procedure polish (
  5.     (set language0 "Polski")
  6.     (set language1 "pl")
  7.     (set MSG_DESTINATION "Podaj ôcieûkë docelowâ dla komend")
  8.     (set MSG_GUIDEDEST "Podaj ôcieûkë docelowâ dla pliku AmigaGuide")
  9.     (set MSG_COPYCMD "Kopiowanie komend")
  10.     (set MSG_COPYGUIDE "Kopiowanie pliku AmigaGuide")
  11.     (set MSG_DOIEXECUTEIT  "Czy mam uruchomiê skrypt AmigaDOS,\naby zademonstrowaê moûliwoôci\nobu komend")
  12.     (set MSG_DOIEXECUTEIT0 "Nie uruchom")
  13.     (set MSG_DOIEXECUTEIT1 "Uruchom")
  14.     (set MSG_EXECUTE "Wykonywanie skrytpu AmigaDOS")
  15.     (set MSG_OSV36NEEDED "Wymagany jest system 2.00 (wersja 36)\nBez niego komendy nie bëdâ dziaîaê!\n\nPrzerywam instalacjë!\n\nWersja systemu: %ld")
  16.     (set MSG_REQTOOLSV38NEEDED "Wymagana jest biblioteka reqtools.library w wersji 38\n(obecna wersja: %ld)\n\nInstalacja zostanie przerwana")
  17.     (set MSG_REQTOOLSNEEDED "Wymagana jest biblioteka reqtools.library w wersji 38\n\nInstalacja zostanie przerwana")
  18. ))
  19.  
  20. (procedure english (
  21.     (set language0 "English")
  22.     (set language1 "en")
  23.     (set MSG_DESTINATION "Enter path for commands")
  24.     (set MSG_GUIDEDEST "Enter path for AmigaGuide help")
  25.     (set MSG_COPYCMD "Copying commands")
  26.     (set MSG_COPYGUIDE "Copying Guide")
  27.     (set MSG_DOIEXECUTEIT  "Shall I run an AmigaDOS script\nTo demonstrate the usage\nof those two commands")
  28.     (set MSG_DOIEXECUTEIT0 "Oh please don't")
  29.     (set MSG_DOIEXECUTEIT1 "Yes, run it")
  30.     (set MSG_EXECUTE "Executing AmigaDOS script")
  31.     (set MSG_OSV36NEEDED "Kickstart 2.00 (version 36 required)\nWithout it the commands will not work!\n\nAborting installation!")
  32.     (set MSG_REQTOOLSV38NEEDED "reqtools.library version 38 needed\n(current version installed: %ld)\nAll the commands use it!\n\nAborting installation!")
  33.     (set MSG_REQTOOLSNEEDED "reqtools.library version 38 needed\nAll the commands use it!\n\nAborting installation!")
  34. ))
  35.  
  36. (set language0 "")
  37. (if (= @language "english")  (english))
  38. (if (= @language "polski")  (polish))
  39. (if (= language0 "") (english))
  40.  
  41. (complete 0)
  42. (welcome)
  43.  
  44. (set osversion  (/ (getversion) 65536))
  45. (set rtversion  (/ (getversion "LIBS:reqtools.library") 65536))
  46.  
  47. (if (< osversion 36)
  48.    (
  49.    (exit (MSG_OSV36NEEDED osversion))
  50.    )
  51. )
  52. (if (= rtversion 0) ( (exit MSG_REQTOOLSNEEDED) ) )
  53. (if (< rtversion 38) ( (exit (MSG_REQTOOLSV38NEEDED rtversion)) ) )
  54.  
  55. (set @default-dest
  56.    (askdir (prompt MSG_DESTINATION)
  57.            (help @askdir-help)
  58.            (default "C:")
  59.            (newpath))
  60. )
  61.  
  62. (set guidedest
  63.    (askdir (prompt MSG_GUIDEDEST)
  64.            (help @askdir-help)
  65.            (default "HELP:")
  66.            (newpath))
  67. )
  68.  
  69. (complete 25)
  70. (copyfiles
  71.    (prompt MSG_COPYCMD)
  72.    (help @copyfiles-help)
  73.    (source "")
  74.    (dest @default-dest)
  75.    (choices "rtGetString" "rtEZReq")
  76.    (confirm)
  77.    (files)
  78. )
  79. (complete 50)
  80. (set guidename ("rtUtils.guide.%s" language1))
  81. (copyfiles
  82.    (prompt MSG_COPYGUIDE)
  83.    (help @copyfiles-help)
  84.    (source guidename)
  85.    (dest guidedest)
  86.    (newname "rtUtils.guide")
  87.    (confirm)
  88. )
  89.  
  90. (complete 75)
  91. (set executeit
  92.    (askbool (prompt MSG_DOIEXECUTEIT)
  93.             (help @askbool-help)
  94.             (default 1)
  95.             (choices MSG_DOIEXECUTEIT1 MSG_DOIEXECUTEIT0))
  96. )
  97. (if (= executeit 1)
  98.    (
  99.    (execute ("rtUtilsDemoScript.%s" language1) (prompt MSG_EXECUTE) (safe))
  100.    )
  101. )
  102. (complete 100)
  103. (exit)
  104.